home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg1
/
g28.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
585b
|
25 lines
100 ' G28 T.WAKAMATSU
110 DIM H(20),X(20),Y(20)
120 FOR I=1 TO 10:READ H(I):NEXT I
130 DATA 4,5,8,9,2,3,6,7,10,1
140 PI=3.14159!:CLS
150 FOR P=1 TO 3
160 READ A,B:DATA 9,4,6,1,0,0
170 K=180/5:F=0
180 FOR L=0 TO 120 STEP 3
190 N=0:J=F:F=F+3
200 FOR I=L TO 360+L-K STEP K
210 J=100-J:M=I+J
220 T=M/180*PI
230 N=N+1
240 X(N)=239*COS(T)+320
250 Y(N)=239*SIN(T)+240
260 NEXT I
270 PSET(X(1),Y(1))
280 FOR I=1 TO 10
290 B=A-B
300 LINE-(X(H(I)),Y(H(I))),PSET,B
310 NEXT I
320 NEXT L
330 NEXT P